#R

# Computes correlation between audit and district 

## Relevant districts: Isiolo 74%, Wajir 75%, Samburu 68%, Garissa 62%, Tana 44%
## 


x <- as.numeric(c(7, 6, 6, 6, 3))
y<- as.numeric(c(74, 75, 68, 62, 44))

cor.test(x,y)

#t = 4.3299, df = 3, p-value = 0.02272
# alternative hypothesis: true correlation is not equal to 0
# 95 percent confidence interval:
# 0.2554887 0.9953706
# sample estimates:
      cor 
# 0.9284696 


mean(c(8,7,7,6,6,6,6,5,5,4,3))
# 5.72